#Copyright 2013 Juan Manuel Martínez Gámiz 

#This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

#This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

#You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>

#http://www.gnu.org/licenses/gpl.html
#!/usr/bin/perl

use 5.010; 
use strict; 
use warnings;  


our $numero=0;
our $suma;
our @lista;
our $i=0;


while($numero ne '='){
	$_=<>;
	chomp;
	if($_ ne '='){
		$numero=$_; 	
		$lista[$i]=$numero;
		$i++;
	}else{
		$numero=$_;
	}
}	

for (my $j = 0; $j <= $#lista; $j++) {
	$suma+=$lista[$j];										
}	

print("Suma = $suma \n"); 
